home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / fredfish / 1068.lha / Programs / AddressBook / Install < prev    next >
Text File  |  1995-02-16  |  6KB  |  260 lines
  1. ; $VER: Address-Book V00.31
  2. ; Copyright ©1994 by Jörg Krause - All Rights Reserved
  3.  
  4. (complete 0)
  5.  
  6. ; --- English (default) strings ---
  7.  
  8. (set #introduction (cat "\n"
  9.  
  10.     "Address-Book V00.32, All Rights Reserved.     \n"
  11.     "                                                 \n"
  12.     "Address-Book ©'94 Jörg Krause                    \n"
  13.     "MUI          ©'94 Stefan Stuntz                  \n"
  14.     "                                                 \n"
  15.     "Address-Book is NOT 'freely distributable'.      \n"
  16.     "Please have a look at the licence file before    \n"
  17.     "installing Address-Book; installing this software\n"
  18.     "means accepting that licence. Thank you.         \n"
  19. ))
  20.  
  21. (set #badkick "\n Sorry, this package requires OS v2.04 or better.\n")
  22.  
  23. (set #where "Where do you want to install Address-Book ?")
  24.  
  25. (set #where_prefs "Where do you want to install the ABook-Prefs ?")
  26.  
  27. (set #wbstart "Should I copy the Arexx-Server into  WBStartup ?\n")
  28.  
  29. (set #cat "Do you want to install the german catalog ?\n")
  30.  
  31. (set #startuphelp (cat "\n"
  32.  
  33.     " If the Arexx-Server is copied into WBStartup,\n"
  34.     " you should access the database via Arexx     \n"
  35.     " at every time.                               \n"
  36. ))
  37.  
  38. (set #where_help (cat "\n"
  39.  
  40.     " Simply select a directory (a root directory is   \n"
  41.     " fine, too). I'm going to copy Address-Book       \n"
  42.     " within the directory you specify. You should     \n"
  43.     " select a directory which has an icon attached to \n"
  44.     " it (e.g. SYS:Utilities).                         \n"
  45. ))
  46.  
  47. (set #where_prefs_help (cat "\n"
  48.  
  49.     " Simply select a directory. E.g. the Prefs       \n"
  50.     " directory                                       \n"
  51. ))
  52.  
  53. (set #help_cat (cat "\n"))
  54.  
  55.  
  56. ; --- German (default) strings ---
  57.  
  58. (set #introduction (cat "\n"
  59.  
  60.     "Address-Book V00.32, Alle Rechte vorbehalten. \n"
  61.     "                                               \n"
  62.     "Address-Book ©'94 Jörg Krause                  \n"
  63.     "MUI          ©'94 Stefan Stuntz                \n"
  64.     "                                               \n"
  65.     "Address-Book ist NICHT 'frei vertreibbar'.     \n"
  66.     "Bitte lesen Sie die Lizenz-Datei, bevor Sie    \n"
  67.     "Address-Book installieren; Mit der Installation\n"
  68.     "stimmen Sie den Lizenzbedingungen zu. Viel Spaß\n"
  69.     "mit dem Programm.                              \n"
  70. ))
  71.  
  72. (set #badkick "\n Sorry, dieses Paket benötigt mind. OS v2.04.\n")
  73.  
  74. (set #where "In welches Verzeichnis soll Address-Book hinein kopiert werden ?\n")
  75.  
  76. (set #where_prefs "In welches Verezichnis sollen die Prefs kopiert werden ?\n")
  77.  
  78. (set #wbstart "Soll der Arexx-Server in den WBSartup-Ordner kopiert werden ?\n")
  79.  
  80. (set #cat "Soll der deutsche Katalog installiert werden ?\n")
  81.  
  82. (set #startuphelp (cat "\n"
  83.     
  84.     " Der Arexx-Server kann in den WBStartup Ordner\n"
  85.     " kopiert werden. Dadurch hat man mittels Arexx\n"
  86.     " jederzeit Zugriff auf die Daten.             \n"
  87. ))
  88.  
  89. (set #where_help (cat "\n"
  90.  
  91.     " Wählen Sie ein beliebiges Verzeichnis. Hauptver-\n"
  92.     " zeichnisse wie SYS: können auch benutzt werden. \n"
  93.     " In dem angegebenen Pfad wird Address-Book       \n"
  94.     " installiert werden.                             \n"
  95.     " Sie sollten ein Verzeichnis wählen, dem ein Icon\n"
  96.     " zugeordnet ist, um Address-Book auch über die   \n"
  97.     " Workbench starten zu können.                    \n"
  98. ))
  99.  
  100. (set #where_prefs_help (cat "\n"
  101.  
  102.     " Wählen sie ein beliebiges Verzeichnis. Es bietet\n"
  103.     " sich z.B. das Prefs Verzeichnis an.             \n"
  104. ))
  105.  
  106. (set #help_cat (cat "\n"))
  107.  
  108. ;sure we are running under OS2.04 or above
  109. (if (< (/ (getversion) 65536) 37)
  110.  
  111.     (
  112.       (message #badkick)
  113.       (exit (quiet))
  114.     )
  115. )
  116.  
  117. (message #introduction)
  118.  
  119. (welcome)
  120.  
  121. ;Get directory to install Address-Book in.
  122. (set destdir 
  123.     (askdir 
  124.         (prompt #where)
  125.         (help   #where_help)
  126.         (default "SYS:")
  127.     )
  128. )
  129.  
  130. (complete 10)
  131.  
  132. ;Copy Address-Book to destination.
  133. (copyfiles
  134.     (source "Address-Book")
  135.     (dest destdir)
  136.     (infos)
  137. )
  138.  
  139. (complete 20)
  140.  
  141. (set prefsdir
  142.     (askdir
  143.         (prompt #where_prefs)
  144.         (help #where_prefs_help)
  145.         (default destdir)
  146.     )
  147. )
  148.  
  149. (copyfiles
  150.     (source "ABook-Prefs")
  151.     (dest prefsdir)
  152.     (infos)
  153. )
  154.  
  155. (complete 30)
  156.  
  157. (if (= 0 (exists (tackon destdir "data/Address-Book.dat")))
  158.     ((copyfiles
  159.        (source "data/Address-Book.dat")
  160.        (dest (tackon destdir "Data"))
  161.     )
  162.     (copyfiles
  163.        (source "Data.info")
  164.        (dest destdir)
  165.     ))
  166. )
  167.  
  168. (complete 40)
  169.  
  170. ;Copy Mui-License
  171. (copyfiles
  172.     (source "ReadMe.mui")
  173.     (dest destdir)
  174.     (infos)
  175. )
  176. ;copy drawer info
  177. (copyfiles
  178.     (source "Docs.info")
  179.     (dest destdir)
  180. )
  181.  
  182. (complete 50)
  183.  
  184. ;copy the docs
  185. (copyfiles
  186.     (source "docs")
  187.     (dest (tackon destdir "Docs"))
  188.     (all)
  189. )
  190.  
  191. (complete 60)
  192.  
  193. (set copycat
  194.     (askbool
  195.           (prompt #cat)
  196.           (help #help_cat)
  197.           (choices "OK" "Skip")
  198.           (default 0)
  199.     )
  200. )
  201.  
  202. (if copycat
  203.     (copyfiles
  204.         (source "Catalogs/deutsch")
  205.         (dest "Locale:catalogs/deutsch")
  206.         (all)
  207.     )
  208. )
  209.  
  210. ;Copy arexx & macros
  211. (copyfiles
  212.     (source "Arexx")
  213.     (dest (tackon destdir "Arexx"))
  214.     (all)
  215. )
  216.  
  217. (copyfiles
  218.     (source "Arexx.info")
  219.     (dest destdir)
  220. )
  221.  
  222. (complete 70)
  223.  
  224. (set answer
  225.     (askbool
  226.           (prompt #wbstart)
  227.           (help #startuphelp)
  228.           (choices "OK" "Skip")
  229.           (default 0)
  230.     )
  231. )
  232.  
  233. (if answer
  234.     (copyfiles
  235.         (source "WBStartup")
  236.         (dest "sys:WBStartup")
  237.         (all)
  238.     )
  239. )
  240. (if answer
  241.     (tooltype
  242.         (dest "SYS:WBStartup/ABook-Server")
  243.         (settooltype "DATAFILE" (tackon destdir "data/Address-Book.dat"))
  244.         (noposition)
  245.     )
  246. )
  247.  
  248. (complete 80)
  249. ;Correct @default-dest so that final information is correct.
  250. (set @default-dest destdir)
  251.  
  252. (complete 90)
  253.  
  254. ;remove silly .info
  255. (delete (tackon destdir ".info"))
  256.  
  257. (complete 100)
  258.  
  259. (exit)
  260.